home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / SOL.WB$ < prev    next >
Text File  |  1992-01-17  |  886b  |  32 lines
  1. ; * SOLITARE.WBT *
  2.  
  3. MinutesToPlay = AskLine("Solitaire", "How many minutes do you want to play?", "")
  4. If WinExist("Solitaire") == @TRUE Then Goto activate
  5. RunZoom("sol.exe", "")
  6. Goto loaded
  7.  
  8. :activate
  9. WinActivate("Solitaire")
  10. WinZoom("Solitaire")
  11.  
  12. :loaded
  13. SendKey("!GC{RIGHT}{SP}~")
  14. WinTitle("Solitaire", "Solitaire (")
  15. SecondsToPlay = MinutesToPlay * 60
  16. SecondsAlreadyPlayed = 0
  17.  
  18. :moretime
  19. SecondsRemaining = SecondsToPlay - SecondsAlreadyPlayed
  20. If WinExist("Solitaire (") == @FALSE Then Exit
  21. WinTitle("Solitaire (", "Solitaire (%SecondsRemaining% seconds left)")
  22. Delay(10)
  23. SecondsAlreadyPlayed = SecondsAlreadyPlayed + 10
  24. If SecondsAlreadyPlayed < SecondsToPlay Then Goto moretime
  25. Beep
  26.  
  27. :TryAgain
  28. WinClose("Solitaire (")
  29. If WinExist("Solitaire (") == @TRUE Then Goto TryAgain  ; Mouse might be down
  30. Message("Solitaire's Over", "Get back to work!")
  31. Exit
  32.